play donepuppetSound "Down Click"go to marker(1)puppetSound "Down Click"SpriteAnim(mClearPuppets, 10, 14)play "StartLesson"checkCompleted 2go to marker(0)puppetSound 0when keyDown then NothingpuppetSound "Down Click"SpriteAnim(mClearPuppets, 10, 14)play "StartLesson"checkCompleted 1UserInfo(mReadInfo)set the text of field "Name" to UserInfo(mGetUserName)if the text of field "Name" = EMPTY then set the text of field "Name" to " "end ifset the textFont of field "Name" to "Times"if the machineType = 256 then set the textSize of field "Name" to 18else set the textSize of field "Name" to 24end ifset the textStyle of field "Name" to "bold"put EMPTY into field "Name"editableTextif TestMouse then SpriteAnim(mClearPuppets, 10, 14) UserInfo(mDispose) SpriteAnim(mDispose) ThePath(mDispose) Globes(mDispose) quitend ifif TestMouse then play "Options"if TestMouse then go to "Options"when keyDown then if the key = RETURN or the key = TAB then checkFieldpauseset lineNo = UserInfo(mFindUser)if TestMouse then puppetSprite 4, FALSE UserInfo(mAddUser, lineNo) go to "ExplainOption" end ifWaitForQT 2if the optionDown then go to marker(1)PlayOptionButtonif TestMouse then put EMPTY into field "Name" puppetSprite 4, FALSE go to "UserID"end ifgo to marker (0)puppetSound 0if the machineType = 256 then if LevelSetting then set the soundLevel to LevelSetting end if end ifif the machineType = 256 then if VolumeSetting then set the volume of sprite 2 to VolumeSetting end ifend ifset FrameType = 0pauseset FrameType = 1pausepuppetSound "Down Click"SpriteAnim(mClearPuppets, 10, 14)play "StartLesson"checkCompleted 3set the immediate of sprite 23 to TRUEset FrameType = 2pauseif not InHelp then PlayHelpButton end ifgo to the frame - 1checkLessonpreLoad 38, 41
vwci
----
1025: SchoolCo logo.fnl1.PICT
1026: on mouseDown global SpriteAnim SpriteAnim(mAnimButton 24, "Option down", "Option up")end mouseDown Option up
1027: 42122 BG.PICT
1028: Menu BG.PICT
1030: opt text1.PICT
1031: opt text2.PICT
1032: opt text3.PICT
1033: opt text4.PICT
1034: opt text5.PICT
1035: opt text6.PICT
1036: on mouseUp end mouseUp
1037: InstalDir
1041:
Option2 up
1042: on mouseDown global SpriteAnim SpriteAnim(mAnimButton 10, "Continue on", "Continue off")end mouseDownContinue off
1043: on mouseDown global SpriteAnim SpriteAnim(mAnimButton 11, "Retype on", "Retype off")end mouseDown
Retype off
1044: on mouseDown animButton 5, "DesignA off", "DesignA on"end mouseDownContinue on
1045: on mouseDown animButton 6, "DesignB off", "DesignB on"end mouseDown Retype on
1047: No On
1048: Yes On
1049: Next down
1050: Option2 down
1051: on mouseUp end mouseUp
1053: on mouseDown global SpriteAnim SpriteAnim(mAnimButton 23, "Yes on", "Yes off")end mouseDownYes off
1054: on mouseDown global SpriteAnim SpriteAnim(mAnimButton 24, "No on", "No off")end mouseDownNo off
1055: on mouseUp end mouseUp2.2.1.2.2.2. opt menu.mock.PICT